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BASIC 


ATTENTION 

This is a USER program. Other than requiring that it conform to submittal and review standards, 
no quality control has been imposed upon this program by DECUS. 

The DECUS Program Library is a clearing house only; it does not generate or test programs. No 
warranty, express or implied, is made by the contributor. Digital Equipment Computer Users 
Society or Digital Equipment Corporation as to the accuracy or functioning of the program or 
related material, and no responsibility is assumed by these parties in connection therewith. 










INSTIN 


DECUS Program Library Write-up DECUS NO. 8-462 




Description of Program: 

INSTIN is a program which will solve Instant 
Insanity. The puzzle consists of four cubes, each 
side of which is colored white,red, green, or blue. 
To solve the puzzle, one must stack the cubes in a 
line so that each color appears only once along a 
side which is four cubes long. The program will 
find and print out all the basic solutions. 

The program allows the user to change the puzzle 
by switching colored sides or by changing the 
color of sides. The user may inhibit the printing 
of the solutions to determine the number of basic 
solutions quickly. 

Operation: 

The program should be self-explanatory. 
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10 DIM ZC4),CC4, 6>,DC6) 

50 PHI is) T "PROG HAM FOR SOLVING INSTANT INSANITY" 
53 HEM ...BY PAUL M. KINHELMAN 
55 R&/ » 1415 OTIS ST. N.E. 

REM WASH. D.C. 20017 

PEM DEC 1970, REVISED JUNE 

PRINT "EXPLAIN!1=YES,0=NO>"; 

INPUT D 

IF D= 0 GOTO 130 


1971 


"REPRESENTATION-" 

"WHITE=1 HED=2 G REEN= 3 8LUF=4" 

"STACK SO THAT TOPS AND BOTTOMS ARE HIDDEN:" 

"STARTING POINT FORMAT:" 

BACK,LEFT, FRONT, RIGHT, TOP, BOTTOM" 

"OUTPUT FORMAT:" 


'BACK LEFT 


TOP" 

FRONT 

BOTTOM' 


RIGHT- 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT ; 

FOR 1=1 TO 4 
PRINT "CUBE": I } "= "; 

MPUT CtI,l),C(I.2),C<I,3).C<r,«,c<I,S),C(t,6) 

NEXT I 
LET 3=0 
PRINT "PRINT 
INPUT D 
LET N=1 
FOR J=1 TO 4 
LET Z(J)= 1 
NEXT J 
LET N=N +1 
REM FUNCTION 
FOR 1=1 TO 4 
FOR J=2 TO N 
FOR K=J TO N 
IF C(J-1, I)=C(K,I) 

NEXT K 
NEXT J 
NEXT I 

REM END OF FUNCTION 
IF N= 4 GOTO 614 
GOTO 240 

FOR ?.T°ro UT r 10 CH * mF CUBE SSSSS£SSS SSSSSSSSSS 


SOLUTIONS! 1 = YES, 0=NO)"J 


TO CHECK IF STACK IS OK FFFFFFFFFFFFFFFFFFFFFFFFF 


GOTO 350 


FFFFFFFFFF FFFFFFFFFFFFFF 


LET DC I ) = C(N, I ) 

NEXT I 

IF N= 1 GOTO 50 5 
IF INT C ZCN)/12>*12= 
IF IN TC Z C N > / 4 ) * 4 = Z C N > 
FOR 1=1 TO 3 
LET CCN, 5-1 ) = CCN, 4-1 ) 
NEXT I 

LET CCN, 1 ) = DC 4) 

GOTO 530 

LET CCN,2) = DC6) 


HCN) 

GOTO 


GOTO 

440 


49 0 


2 

















450 LET CCN,4> = D(5) 

460 LET C(N, 5) = D(2) 

470 LET C(N#6) = D(4) 

480 GOTO 530 

490 LET C(N, 1 ) = D< 3) 

500 LET C(N»3) = D(1) 

501 LET C(N*5) = D<6) 

502 LET C(N,6> = DC5> 

503 GOTO 530 

505 LET 2<N)=2(N)+7 

507 FOR M =1 TO 3 

509 LET C(N,M)=CCN,M+1 > 

51 1 NEXT M 

513 LET CCN, 4> = D( 1) 

515 FOR 1=1 TO 4 
517 LET D( I ) = CCN* I ) 

519 NEXT I 
521 GOTO 380 

525 REM END OF SUBROUTINE SSSSSSSSSSSSSSSSS 
530 IF 2(N)<>24 GOTO 580 
540 IF N= 1 GOTO 600 
550 LET 2CN) = 1 
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LET N=N-1 
GOTO 350 

LET 2 ( N ) = 2 (N ) + 1 

GOTO 260 

^GOTO 720 L P0SSIBILIT ‘ES TESTED. NUMBER OF SOLN’S 

LET S=S+1 
IF D=0 GOTO 350 

PRINT •*---•• 

PRINT "ONE SOLUTION:" 

FOR 1=1 TO 4 
PRINT 

PRINT " "; c< I, 5) 

PRINT C(Ij l)JCCI#2)iC(I>3);C(I# 4) 

PRINT " "i C( I# 6) 

NEXT I 
PRINT 

PRINT "---- 

GOTO 350 
PRINT 

PRINT "PRINT CURRENT POSI TION< 1 =YFS, 0=NO) "; 

INPUT I Nu; ’ 

IF 1 = 0 GOTO 7 30 
FOR 1=1 JO 4 
PRINT 

PRINT " "; C( I# 5) 

PRINT C(I, 1>; CCI,2)iC<I,3); C( l, 4) 

PRINT " "j C<I# 6) 

NEXT I 
PRINT 

FOR 1=1 TO 4 

INPUT ?° Y0U WISH T0 CHANGE CUBE"; I 5 "C 1 = YES,0=NOV 

IF X=0 GOTO 79 0 
PRINT "CUBE"; I; "="; 

NEXT T I CU ' 1),CU ' 2) ' C<1 ' 3) 'CCI, 4),C(I,5),C(I,6) 

GOTO 223 
END 


S 


3 
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RUN 


PROGRAM for solving instant insanity 

EXPLAIN( 1=YES, 0=NO)? 1 INSANTTY 

REPRESEN TATION- 

^; r T 5 =1 RE0=2 GREEN=3 Bl UE= 4 

SI ACK oO THAT TOPS AND BOTTOMS ARE HIDDEN; 


STARTING POINT FORMAT: 

BACK,LEFT, FRONT, RIGHT, TOP, BOTTOM 

OUTPUT FORMAT: 

TOP 

back left front right 

BOTTOM 

CUBE 1 =? 

1» 1,3, 2, 4, 2 

CUBE 2 =? 

2,2,2, 3, 4, 1 

CUBE 3 = ? 

1* 1* A, 3, 3, 2 

C UBE A -? 

A, 4, 2, 1,3, 3 

PRINT SOLUTION SC 1=YES,0=NO)? 1 

ONE SOLUTION: 

2 

2 1 4 

1 

3 

2 

3 4 2 

2 

1 

1 

1 3 3 

4 

2 

3 

4 2 1 

3 

4 


4 







J 








all possibilities TESTED, number of soln-s = I 
PPINT CURRENT POSI TIONO-YES, 0.NOJ7 1 

1 

3 4 12 
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2 2 


1 1 
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DO YOU WISH TO CHANGE CUBE 1 Cl-Vfr<? a m, xo 

DO you LI SH TO CHANGE CUBE 2 < ^Es'o-NO, " 1 

CUBE 2 =? 8,2.3. 1,2,4 < 1-YES, 0=NO> 7 1 

DO YOU WISH TO CHANGE CUBE 3 n-vrc r . „ 

DO you WISH TO CHANGE CU8F A ! 03 

PRINT SOI iiTrnMQM.vn.. „ ( YEb, 0=NO> ? u 


ONE SOLUTION: 
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SOLUTION: 
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